home *** CD-ROM | disk | FTP | other *** search
/ Team Palmtops 7 / Palmtops_numero07.iso / WinCE / SDKWindowsCE / HandHeldPCPro30 / sdk.exe / Jupiter SDK / data1.cab / ATL_Samples / sketch / demo.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-02-19  |  3.2 KB  |  110 lines
  1. VERSION 5.00
  2. Object = "{CBF9C2B0-E8CB-11D0-AFAE-00600811D2B6}#1.0#0"; "Sketch.dll"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Sketchomatic"
  5.    ClientHeight    =   2820
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7125
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2820
  11.    ScaleWidth      =   7125
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "Erase"
  14.       BeginProperty Font 
  15.          Name            =   "MS Sans Serif"
  16.          Size            =   18
  17.          Charset         =   0
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   1695
  24.       Left            =   5760
  25.       TabIndex        =   3
  26.       Top             =   0
  27.       Width           =   1335
  28.    End
  29.    Begin VB.OptionButton Option3 
  30.       Caption         =   "Thick"
  31.       BeginProperty Font 
  32.          Name            =   "MS Sans Serif"
  33.          Size            =   12
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   255
  41.       Left            =   5760
  42.       TabIndex        =   2
  43.       Top             =   2520
  44.       Width           =   1335
  45.    End
  46.    Begin VB.OptionButton Option2 
  47.       Caption         =   "Medium"
  48.       BeginProperty Font 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   12
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   255
  58.       Left            =   5760
  59.       TabIndex        =   1
  60.       Top             =   2160
  61.       Width           =   1335
  62.    End
  63.    Begin VB.OptionButton Option1 
  64.       Caption         =   "Thin"
  65.       BeginProperty Font 
  66.          Name            =   "MS Sans Serif"
  67.          Size            =   12
  68.          Charset         =   0
  69.          Weight          =   400
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       Height          =   255
  75.       Left            =   5760
  76.       TabIndex        =   0
  77.       Top             =   1800
  78.       Width           =   1335
  79.    End
  80.    Begin SKETCHLibCtl.SketcCtl SketcCtl1 
  81.       Height          =   2775
  82.       Left            =   0
  83.       OleObjectBlob   =   "Demo.frx":0000
  84.       TabIndex        =   4
  85.       Top             =   0
  86.       Width           =   5655
  87.    End
  88. Attribute VB_Name = "Form1"
  89. Attribute VB_GlobalNameSpace = False
  90. Attribute VB_Creatable = False
  91. Attribute VB_PredeclaredId = True
  92. Attribute VB_Exposed = False
  93. Option Explicit
  94. Private Sub Command1_Click()
  95. SketcCtl1.Erase
  96. End Sub
  97. Private Sub Form_Load()
  98. End Sub
  99. Private Sub Option1_Click()
  100. SketcCtl1.PenWidth = 1
  101. End Sub
  102. Private Sub Option2_Click()
  103. SketcCtl1.PenWidth = 4
  104. End Sub
  105. Private Sub Option3_Click()
  106. SketcCtl1.PenWidth = 6
  107. End Sub
  108. Private Sub SketcCtl1_GotFocus()
  109. End Sub
  110.